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New Versions 


Bob Matzinger has adapted the S-C Macro Assembler for the Basis 
108. His revision uses the full capabilities of the Basis 
keyboard, and operates in 80-column mode. Bob also added some 
new Escape functions: 


Escape A - Turns on automatic line numbering 

Escape M - Turns off 7 

Escape C - Catalog the current disk 

Escape S - Automatic SAVE to the file named in first line 


of program 


If you have the Basis 108, and already own the S-C Macro 
Assembler, I'll send you a copy of the Basis version for $20. 


We are currently working on an Apple /// version of the S-C 
Macro Assembler. Whew! It's no easy task! Do any of you use 
the Apple ///? My hat is off to you. 


The Apple II-E should be out by the time you are reading this. 
We understand that there are changes in the ROM and DOS, which 
will probably affect our programs. If so, we'll let you know 

what the detailsS are next month. 


Super SCLOLLEr ccc cc cc ccc cece ccc cece vce e sees e UCLFrey Scott 
East Norwalk, CT 


I am a manager of a software department in a company that makes 
computerized money counting equipment (6502 based). We have 
two programming departments: one which is called 
"applications" (Pascal and BASIC only) and another called 
“software engineering" where we use assembly language, 


We use the S-C Macro Assembler after having sampled all others. 
And in fact, with my Apple II, 5 Mbyte hard drive, and 3.6 MHz 
"Number Nine 6502" plug-in board, I can assemble a 300-page 
source program in about 2.5 minutes! 


I love the Apple II, but I don't like being tied to an 
operating system that I didn't write myself. I use RWTS, but 
for the rest I uSe my own code. 


I remember one day trying to output to the screen while 
receiving at 2400 baud. The Apple monitor's scroll was s0 slow 
that I lost the first few characters from the front of every 
line. While writing my own substitute scroll routine, the idea 
was born that the absolute fastest scroll would be straight 
in-line code: one "LDA $xxxx...STA $xxxx" pair for each byte 
on the screen. 


Just for fun, I wrote the following program, which generates 
the 960 LDA-STA pairs to scroll the whole screen! The 
generator program is only 145 bytes long, but it “writes" a 
program 5521 bytes long! 


This "Super Scroller" is not for everyone...it requires a spare 
5521 bytes ($1591) of memory somewhere. If you do, you need 
only equate "PGM.START.IN.RAM" to your available area, call 
"“PGM.TO.WRITE.SCROLLING.PGM", and then you can call the Super 
Scroller at “PGM.START.IN.RAM whenever you need it. 


Since the scroller can be generated whenever it is needed, it 
can be part of an overlay environment. You only need a 5.5K 

buffer available at the right times. At other times the same 
memory can be used other ways. 


To illustrate the speediness of Super Scroller, I wrote a 
memory dump whose output is the same as the Apple monitor 
memory dump. It is set up to display from $0000 through SBFFF. 
With Super Scroller, it takes only about 51 seconds; without, 
it takes 2 minutes 57 seconds (over three times longer!). 


Someone might object that I did not clear the bottom line after 
scrolling up. I elected to just write a fresh bottom line, and 
Clear to the end of line after the last new character is 
written. 
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S-C Macro Assembler (the best there iS!) ...cccccccccveccsccceevces es 900.00 
Upgrade from Version 4.0 tO MACRO... ..ccccccccccccccssceseccccese se 927490 
Source code of Version 4.0 On GiSk..wccccceccccvsccccvescesesseccses es S992 00 
Fully commented, easy to understand and modify to your own tastes. 
S-C Macro Assembler /// (COMING SOON!) .ccccccccccvevecccccvcvcccee sr? 2200 


Applesoft Source Code on DiSk .cccvcccccvccccccccccccccccccscccccse ec 990.00 
Very heavily commented. Requires Applesoft and S-C Assembler. 

ES-CAPE: Extended S-C Applesoft Program ECitOr..cccccsccsvseseeees 900.00 

AAL Quarterly DiSKS.cccccccvcccccccesccccccccecc ccc ccc cccesecsece  CACH $15.00 
Each disk contains all the source code from three issues of "Apple 
Assembly Line", to save you lots of typing and testing time. 


QD#1l: Oct-Dec 1980 QD#2: Jan-Mar 1981 QD#3: Apr-Jun 1981 
QD#4: Jul-Sep 1981 QD#5: Oct-Dec 1981 QD#6: Jan-Mar 1982 
QD#7: Apr-Jun 1982 QD#8: Jul-Sep 1982 QD#9: Oct-Dec 1982 


Double Precision Floating Point for AppleSOft..c.cccccccccesccceeee SdI.00 
Provides 2l-digit precision for Applesoft programs. 
Includes sample Applesoft subroutines for standard math functions. 


FLASH! Integer BASIC Compiler (Laumer ReSearch) .....cccccescccceee 979.00 
Source Code for FLASH! Runtime Package. .ccceccccccvccccccccccccceeee 39000 


Super Disk Copy III (Sensible Software)...........2.. (reg. $30.00) $27.00 
Amper-Magic . (Anthro-Digital) ...ccccccccvccccssesseee (LEG. $75.00) $67.50 
Amper-Magic Volume 2 (Anthro-Digital).....ceseceeeeee (rEg. $35.00) $30.00 \ 
Quick-Trace (Anthro-Digital) ....cccccvsccccccccceeee (LEG. $50.00) $45.00 


Cross-Reference and Dis-Assembler (Rak-Ware)....ccccccccccvscecccees 945.00 
Apple White Line Trace (Lone Star Industrial Computing)............$50.00 
(A unique learning tool) 


Blank Diskettes (with hub ringsS)........«e.see.-e-package of 20 for $50.00 
Small 3-ring binder with 10 vinyl disk pages and disks........e+e+-936.00 
Vinyl disk pages, 6"x8.5", hold one disk each.......eeeeee22-10 for $4.50 
Reload your own NEC PC-8023 ribbon cartridges...........each ribbon $5.00 
Reload your own NEC Spinwriter Multi-Strike Film cartridges....each $2.50 
Diskette Mailing ProteCtOrS....cccccccvcccccccveseeelL0-99: 40 cents each 

100 or more: 25 cents each 


Ashby Shift-Key MOG. ccccccc ccc ccc ccc cece cece esc ccc cece cece cece cc ee 915200 
Lower -Case Display Encoder ROM. eeoeoeseeeeeseeseeeeseaeee7eeeseeeeoeenweeeeeeensteee Ld e $25. 00 
Only Revision level 7 or later Apples. 


Books, Books, BOOKS. ..csccccosccccsesevecseees compare Our discount prices! 
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"Enhancing Your Apple II, vol. 1", Lancaster.........($15.95) $15.00 
"Incredible Secret Money Machine", Lancaster.....-.ee. ($7.95) $7.50 
"Micro Cookbook, vol. 1", LancaSter.....ccccccccccceee (815.95) $15.00 
"Beneath Apple DOS", Worth & LECHNEr....ccveceseceees ($19.95) $18.00 
"Bag of Tricks", Worth & Lechner, with diskette......($39.95) $36.00 
"Apple Graphics & Arcade Game Design", Stanton.......($19.95) $18.00 
"Assembly Lines: The Book", Roger Wagner....eeeecceee ($19.95) $18.00 
"What's Where in the Apple", Second Edition..........($24.95) $23.00 
"What's Where Guide" (updates first edition).......... ($9.95) $9.00 
"6502 Assembly Language Programming", Leventhal......($16.99) $16.00 
"6502 Subroutines", Leventhal....cccccccccccccceccsece (912.99) $12.00 
"MICRO on the Apple--1", includes diskette..........- ($24.95) $23.00 
“MICRO on the Apple--2", includes diskette.......2.-2. ($24.95) $23.00 
"MICRO on the Apple--3", includes diskette.......+.+- ($24.95) $23.00 


Add $1 per book for US postage. 


*** S~-C SOFTWARE, P. O. BOX 280300, Dallas, TX 75228 
**e (214) 324-2050 
*** We take Master Charge, VISA and American Express *** 


kik 
kkk 


Foreign orders add postage needed. 
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4000- 
0002- 
0004- 
0006- 


0800- 
0800- 
0803- 
0806- 
0808- 
080B- 
O80E- 
0810- 
0810- 
0813- 
0816- 
0818- 
081B- 
O8lE- 
0820- 
0820- 
0823- 
0826- 
0828- 
082B- 
082E- 


0830- 
0832- 
0834- 
0836- 


0838- 
083A- 
083D- 
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80 
05 


80 
07 
A8 
05 
A8 
07 
DO 
05 


DO 
07 


08 


1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 


*SAVE SUPER SCROLL GENERATOR 


+ + 
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PROGRAM TO CREATE A FAST SCROLLER 


CREATES AN ALL "IN-LINE" SCROLL ROUTINE 
WHICH MAY BE CALLED AS A SUBROUTINE. 


WILL SCROLL LINES 2-24 UP TO LINES 1-23 
IN ONLY 7.6 MILLISECONDS. 


BOTTOM LINE IS LEFT UNCHANGED; YOU MAY 
WISH TO ADD MORE CODE TO BLANK BOTTOM LINE. 


+t b+ +t He eH He HF HB HB 


PGM.START.IN. RAM 
PROGRAM 


~-EQ $4000 
-EQ $02 - $03 
UPPER.LINE ~-EQ $04 - $05 
LOWER. LINE -EQ $06 - $07 
-MA SCRN 
~DA )1,)]1+$80,]1+$100, ]1+$180 
-DA ]1+$200,]1+$280, )1+$300, ]1+$380 
- EM 


APPLE.SCREEN.ADDRESSES 


>SCRN $400 LINES 1-8 


-DA $400, $400+$80,$400+$100,$400+$180 


-DA $400+$200,$400+$280,$400+$300,$400+$380 
>SCRN $428 LINES 9-16 


~-DA $428,$428+$80,$428+$100,$428+$180 


~-DA $428+$200,$428+$280,$428+$300,$428+$380 
>SCRN $450 LINES 17-24 


~-DA $450,$450+$80,$450+$100,$450+$180 


~-DA $450+$200 ,$450+$280,$450+$300,$450+$380 
PGM.TO.WRITE .SCROLLING. PGM 


#PGM.START.IN.RAM 
PROGRAM 
/PGM.START.IN.RAM 
PROGRAM+1 


#0 FOR LINE = 1 TO 23 
APPLE.SCREEN.ADDRESSES , X 
UPPER.LINE 
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O83F- BD 01 08 1430 LDA APPLE.SCREEN.ADDRESSES+1,X 


0842- 85 05 1440 STA UPPER.LINE+1 
1450 
0844- BD 02 08 1460 LDA APPLE. SCREEN.ADDRESSES+2,X 
0847- 85° 06 1470 STA LOWER.LINE 
0849- BD 03 08 1480 LDA APPLE. SCREEN.ADDRESSES+3 ,X 
084C- 85 07 1490 STA LOWER.LINE?+1 
1500 
O84E- 8A 1510 TXA SAVE LINE # 
O84F- 48 1520 PHA 
1530 *-------- nn nr ne 
0850- A2 28 1540 LDX #40 FOR CHAR = 1 TO 40 
0852- AO 00 1550 .2 LDY #0 
0854- A9 AD 1560 LDA #SAD "LDA ABSOLUTE" 
0856- 91 02 1570 STA (PROGRAM) ,Y 
0858- C8 1580 INY 
0859- A5 06 1590 LDA LOWER.LINE 
O85B- 91 02 1600 STA (PROGRAM) ,Y 
085D- C8 1610 INY 
O85E- A5 07 1620 LDA LOWER. LINE+1 
0860- 91 02 1630 STA (PROGRAM) ,Y 
0862- C8 1640 INY 
0863- AX 8D 1650 LDA #$8D "STA ABSOLUTE" 
0865- 91 02 1660 STA (PROGRAM) , Y 
0867- C8 1670 INY 
O868- A5 04 1680 LDA UPPER.LINE 
O86A- 91 02 1690 STA (PROGRAM) ,Y 
086C- C8 1700 INY 
O86D- A5 05 1710 LDA UPPER.LINE+1 
O86F- 91 02 1720 STA (PROGRAM) ,Y 
1730 *---------------------- ---------- 
0871- 98 1740 TYA UPDATE PROGRAM POINTER 
0872- 38 1750 SEC 
0873- 65 02 1760 ADC PROGRAM 
0875- 85 02 1770 STA PROGRAM 
0877- 90 02 1780 BCC .3 
0879- E6 03 1790 INC PROGRAM+] 
O87B- E6 04 1800 .3 INC UPPER.LINE NEXT CHAR POSITION 
O87D- E6 06 1810 INC LOWER.LINE 
O87F- CA 1820 DEX 
0880- DO DO 1830 BNE .2 
1840 *-------------------------------- 
0882- 68 1850 PLA 
0883- AA 1860 TAX 
O884- E8 1870 INX NEXT LINE 
0885- E8 1880 INX 
0886- EO 2E 1890 CPX #2*23 
0888- DO BO 1900 BNE .1l 
1910 *-------------------------------- 
O88A- AO 00 1920 LDY #0 
O88C- AY 60 1930 LDA #$60 "RTS" 
O88E- 91 02 1940 STA (PROGRAM) ,Y 
0890- 60 1950 RTS 
1960 *®--- nr rn nn nnn rn rrr nnn 
1970 * A FAST MEMORY DUMP!! 
1980 *---~----------------------------- 
0008- 1990 MEML -EQ $8 * 
0009- 2000 MEMH -EQ $9 
07D0- 2010 SCREEN.WRITE.LINE -EQ $7bDO 
2020 *--~--~--------------------- pose 
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MACHINE LANGUAGE SPEED 
wer Magic, iT WHERE IT COUNTS... 


For the first time, Amper-Magic makes it easy for people who don’t know 
machine language to use its power! Now you can attach slick, finished machine 
language routines to your Applesoft programs in seconds! And interface them 
by name, not by address! 


You simply give each routine a name of your choice, perform the append pro- 
cedure once at about 15 seconds per routine, and the machine language becomes a 
permanent part of your BASIC program. (Of course, you can remove it if you want to.) 


Up to 255 relocatable machine language routines can be attached to a BASIC 
program and then called by name. We supply some 20 routines on this disk. More 
can be entered from magazines. And more library disks are in the works. 


These routines and more can be attached and accessed easily. For example, 
to allow the typing of commas and colons in a response (not normally allowed in 
Applesoft), you just attach the Input Anything routine and put this line in your program: 


xxx PRINT “PLEASE ENTER THE DATE.”; : & INPUT,DATES 


&-MAGIC makes it Easy to be Fast & Flexible! 
PRICE: $75 


&-Magic and Amper-Magic are trademarks of Anthro-Digital, Inc. 
Applesoft is a trademark of Apple Computer, Inc. 


IN YOUR PROGRAM! 


Some routines on this disk are: 


Binary file info 

Delete array 
Disassemble memory 
Dump variables 

Find substring 

Get 2-byte values 
Gosub to variable 
Goto to variable 

Hex memory dump 
Input anything 

Move memory 
Multiple poke decimal 
Multiple poke hex 
Print w/o word break 
Restore special data 
Speed up Applesoft 
Speed restore 

Store 2-byte values 
Swap variables 


Anthro - Digital Software 


P.O. Box 1385 
Pittsfield, MA 01202 


The People - Computers Connection 
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2030 START.DEMO 


0891- 20 30 08 2040 JSR PGM.TO.WRITE.SCROLLING. PGM 
2050 MEMDUMP 
0894- AY 00 2060 LDA #0 DISPLAY FROM $0000 THRU SBFFF 
0896- 85 08 2070 STA MEML 
0898- 85 09 2080 STA MEMH 
O89A- A2 00 2090 .1 LDX #0 X = CHAR PNTR IN OUTPUT LINE 
089C- A5 09 2100 LDA MEMH DISPLAY ADDRESS 
O89E- 20 El 08 2110 JSR DISPLAY .BYTE 
O8Al- AS 08 2120 LDA MEML 
O8A3- 20 El 08 2130 JSR DISPLAY. BYTE 
O8A6- A9 AD 2140 LDA #SAD "—- " 
O8A8- 9D DO 07 2150 STA SCREEN.WRITE.LINE,X 
O8AB- E8 2160 INX 
O8AC- AS AOD 2170 LDA #$A0 
O8AE- 9D DO 07 2180 STA SCREEN.WRITE.LINE,X 
O8Bl- E8 2190 INX 
08B2- AO 00 2200 LDY #0 
O8B4- Bl 08 2210 .2 LDA (MEML) ,Y — DISPLAY 8 BYTES 
O8B6- 20 El 08 2220 JSR DISPLAY .BYTE 
O8B9- A9X AD 2230 LDA #SA0 
O8BB- 9D DO 07 2240 STA SCREEN.WRITE.LINE,X 
O8BE- E8 2250 INX 
O8BF- C8 2260 INY 
08CO- CO 08 2270 CPY #8 
08C2- DO FO 2280 BNE .2 
08C4- 9D DO 07 2290 .3 STA SCREEN.WRITE.LINE,X 
O08C7- E8 2300 INX 
O8C8- EO 28 2310 CPX #40 CLEAR TO END OF LINE 
O8CA- 90 F8 2320 BCC .3 
2330 *--n nn enn nnn nnn 
08cc- 20 00 40 2340 JSR PGM.START.IN.RAM 
2350 Berm rr rr rrr rrr rrr rrr rrr nnn 
O8CF- AS 08 2360 LDA #8 
O08D1- 18 2370 CLC 
O8D2- 65 08 2380 ADC MEML 
O8D4- 85 08 2390 STA MEML 
O8D6- A5 09 2400 LDA MEMH 
O8D8- 69 00 2410 ADC #0 
O8DA- 85 09 2420 STA MEMH 
08DC- C9 CO 2430 .4 CMP #$C0 STOP AT S$BFFF 
O8DE- DO BA 2440 BNE .1 
O8EO- 60 2450 RTS 
2460 Berm mm mr rrr rrr rr rrr rrr nr nena 
2470 DISPLAY.BYTE 
O8E1- 48 2480 PHA 
O8E2- 4A 2490 LSR 
O8E3- 4A 2500 LSR 
O8E4- 4A 2510 LSR 
O8E5- 4A 2520 LSR 
O8E6- 20 EC 08 2530 JSR DISPLAY .NYBBLE 
O8E9- 68 2540 PLA 
O8EA- 29 OF 2550 AND #SOF 
2560 DISPLAY .NYBBLE 
O8EC- 09 BO 2570 ORA #$B0 MAKE HEX DIGIT 
O8EE- C9 BA 2580 CMP #SBA 
O8FO- 90 02 2590 BCC .l 
O8F2- 69 06 2600 ADC #6 
O8F4- 9D DO 07 2610 .1 STA SCREEN.WRITE.LINE,X 
O8F7- E8 2620 INX 
O8F8- 60 2630 RTS 
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Micro Cookbook, vol. 1 (Review) ....cccceccccesseeees Bill Morgan 


Here are some moré details about Don Lancaster's other new 
book, "Micro Cookbook, vol. 1 -- Fundamentals." As I said last 
month, the focus of the book is what to learn and how to learn 
it. He emphasizes "what actually gets used", rather than an 
exhaustive coverage of all possibilities. 


The best quick description of the book is an excerpt from the 
Preface: 


Our aim is to show you how micros work, and how you can 
profit from and enjoy the micro revolution. 


We start with the power and the underlying idea behind 
all micros. From there we build up the framework for all 
the important micro concepts and terms. The micro- 
processor families are broken down into three simple and 
easily understood schools. 


Chapter Two starts with a set of rules for winning the 
micro game. These rules have been thoroughly tested in 
the real world and are not at all what you might expect. 
After that, we check into many of the resources that are 
available to you as a micro user. A survey of micro 
trainers is included. 


The Funny Numbers section (Chapter 3) shows you ways to 
use and understand the number systems involved in micros, 
particularly binary and hexadecimal. From there, we look 
at logic, both as hardware gates and as software 
commands. 


The fourth chapter is all about codes. The important 
codes that are covered include straight binary, 2's 
complement binary, ASCII, BCD, instruction codes, user 
port codes, and various serial data-transmission codes 
and standards. The 2's complement codings are presented 
in a new and understandable way. 


Chapter 5 tells us many things about memory. We go into 
electronic memory -- beginning with simple latches and 
progressing to clocked flip-flops. Mainstream 
microcomputer memory is attacked next -- from static RAMs 
up through dynamic RAM, ROM, PROM, EPROM, and EEPROM 
memories. 


"Micro Cookbook -- Fundamentals" is just that: Fundamental. I 
am a complete novice on hardware. After reading Lancaster's 
book, I still can't design custom interfaces for my Apple, but 
I can now read the more technical books without getting totally 
lost. I have a better understanding of address decoding and of 
what the memory chips are really doing. The book is 
informative, enlightening, and entertaining. I recommend it. 


This Cookbook is about 360 pages of text, plus appendices and 


index. There are many drawings and charts. List price is 
$15.95. We will be selling it for $15.00 + postage. 
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Funny Opcode Names in the 6801 Manual......Bob Sander-Cederlof 


Paul Lundgren (of Microcomp, Inc. in Newtown, CT) brought some 
interesting facts to my attention today. When I implemented my 
6801 Cross Assemblers, I used what was at the time the latest 
documentatin available. Paul had some printed two years later, 
and there were some differences. 


For some reason, the Motorola 6801 Reference Manual changes the 
name of the ASL and ASLD opcodes to LSL and LSLD. There is no 
difference in operation, just a difference in spelling. The 
S-C Cross Assembler only recognizes the ASL and ASLD spellings. 
The opcode tables are near the end of the assembler, so you can 
easily find these entries to change them if you feel strongly 
about it. 


The Motorola book also lists alias names for the BCC and BCS 
opcodes. In the 6801 (or other 68xx chips), carry clear means 
the last test was greater or equal, so the alias name is BHS 
(Branch if High or Same). Carry set means the test was 
smaller, so the alias is BLO. Note that the meaning of carry 
after a comparison in the 68xx chips is exactly the opposite of 
carry in the 6502! 


Here are some macros to use for BHS and BLO: 


-MA BHS 
BCC Jl 
. EM 


~-MA BLO 
BCS jl 
- EM 


Some assemblers for the 6502 have two alias opcodes for BCC and 
BCS. For example, LISA has BLT for BCC (Branch if Less Than), 
and BGE for BCS (Branch if Greater than or Equal). [ I didn't 
do this in the S-C Assemblers because the meaning depends on 
whether the values tested are considered to be signed or 
unsigned. ] 


Here are two macros to implement BLT and BGE in the 6502 
version of the S-C Macro Assembler: 


«MA BLT 
BCC ]1 
- EM 


MA BGE 


BCS J1 
- EM 
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An Addition to CATALOG ARRANGER.....ccccccceeee Dave Barkovitch 


4 
I really like Bill Morgan's CATALOG ARRANGER, from the October 
issue of AAL.. There is something I want to change, though. 


When you move the‘ cursor to the end of a long catalog, the 
cursor stays in the middle of the screen and the catalog 
scrolls up, until only the top half of the screen is filled. 
Here are some patches to make the cursor move down to the end, 
and keep 22 files on the screen: 


2931 LDA NUMBER.OF.ELEMENTS 
2932 SEC 

2933 SBC #LINE.COUNT 

2934 BPL .5 

2935 LDA #ZERO 


2936 .5 STA LAST. ELEMENT 


3830 BPL .7 

3841 BEQ .1l 

3842 .7 CMP LAST .ELEMENT 
3843 BCC . 

3844 LDA LAST. ELEMENT 


5991 LAST.ELEMENT .BS 1 


And Another CNANGE. .ccccvcccsvccvcccscccvecevecesveebBill Collins 


CATALOG ARRANGER is a great utility. Here are a couple of 
things you might like to know: 


1. Version 4.0 of the S-C Assembler will not accept division 
in the operand. If you have that version then change line 3820 
to SBC #11. 


2. If you have DOS relocated into a RAM card you need to add 
the following lines for bank switching purposes: 


1165 MONREAD .EQ $C082 
1167 DOSREAD .EQ $C083 


Then add BIT MONREAD at these positions: Lines 1675, 3785, 
3855, 3895, 4015 (*.5" moved to this line), 4205 (".3" moved to 
this line), 4315, 4425, 4455 (".7" moved to this line). 


And add BIT DOSREAD at these spots: Lines 1535-36, 1685-86, 
3795-96, 3905-06, 3975-76, 4035-36, 4215-16, 4345-46, 4465-66, 
4955-56. 


Also, all DOS addresses must be moved up 16K (lines 1180-1310.) 
SAxxx addresses become SExxx and $Bxxx become SFxxx. 
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A Filename Editor for CATALOG ARRANGER......e2eeeeeeeBill Morgan 


Many thanks to all of you who have called and written to say 
how much you like the CATALOG ARRANGER. I'm glad to hear that 
others find it as useful as I do. Here's my favorite addition 
to the program, the ability to edit the filename in the cursor. 
Now you can alter a name by inserting or deleting characters, 
you can insert control characters, and you can place display 
titles in the catalog, using normal, inverse, flashing, or 
lower case text. 


There are a couple of unique features in this editor. The 
cursor clearly indicates Insert, Overtype, or Override mode, 
and also shows whether the input will be Normal, Inverse, 
Flashing, or Lower Case. The display unambiguously shows all 
these types, plus Control. The price of all this clarity is 
three display lines for one text line, but that's no problem in 
a program like this. You can easily adapt the concepts shown 
here to edit any line of forty or fewer characters. The same 
principles also apply to longer lines, but the screen display 
would have to be handled carefully. 


Installation 

To add FILENAME EDITOR to CATALOG ARRANGER just type in 
S.FILENAME.EDITOR from this listing, and save it on the same 
disk with S.CATALOG.ARRANGER. Then LOAD S.CATALOG.ARRANGER and 
make the following changes and additions: 


1030 -TF CATALOG.ARRANGER. NEW 


1480 LINE.COUNT ~EQ 21 


1915 CMP #$85 “E 

1920 BNE .1 

1922 JSR RENAME.FILE 

1924 JMP DISPLAY .AND.READ.KEY 
5865 ~-IN S.FILENAME. EDITOR 


Then SAVE the new S.CATALOG.ARRANGER and assemble it. 


Operation 


To rename a file, just use the arrow keys to move the cursor to 
the file you want, and type "“CTRL-E" (for Edit). The name you 
selected will appear near the bottom of the screen, between 
square brackets. Any control characters in the name will have 
a bar above them. The caret below the first character of the 
name is the cursor. Any non-control characters you type will 
replace the characters on the screen. Control characters will 
have the effects shown in the command list belaw. Especially 
note that RETURN will enter the name in the lower buffer into 
the filename array, ESC will return you to the Arranger without 
altering the filename, and CTRL-R will restore the original 
filename. ‘ 
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One way to have fun with this program is to put dummy files in 
the catalog, for titles or just for decoration. First get into 
Applesoft and SAVE as many dummy programs (10 REM, for example) 
aS you need. Then BRUN CATALOG ARRANGER, move the dummy 
programs to where you want them, and play with the names. If 
you start the new file name with six CTRL-H's and six spaces, 
it will blank out the “A 002 “ before the name. You can use 
inverse, flashing or lower case text in titles. If you insert 
CTRL-M's (RETURNS) after a name there will be blank lines in 
the catalog. Play with it for a while, and let me know if you 
come up with any esSpecially neat tricks. 


Here are the commands: 


<-- -- Left Arrow. Move the cursor left one position. 
--> -- Right Arrow. Move the cursor right one position. 
RETURN -- Enter. Enter the changed name into the upper display 
and return to arranging. 
ESC -- Escape. Return to arranging, without entering the 
changed name. 


“B -- Beginning. Move the cursor to the beginning of the 
line. 

“D -- Delete. Delete one character at the cursor. 

“E -- End. Move the cursor to the end of the name. 

“F -- Find. Move the cursor to a particular character. 


Type ““FA" to move the cursor to the next "A" in the 
name. Type another "A" to move to the following "A", 
and so on. Any character other than the search key 
will be entered or executed. 

I -- Insert. Turn on Insert Mode. Following characters 
will be inserted to the left of the backslash cursor. 
Any control character turns Insert off. 


“O -- Override. Insert the next character typed "as is". 
This allows you to insert control characters into a 
name. 

“R -- Restore. Restore the name to its original. condition, 
as it appears in the upper display. 

“S -- Shift Mode. Cycle between Normal, Inverse, Flashing, 


and Lower Case entry. The cursor changes to show the 
current mode. 

Z-- Zap. Remove all characters from the cursor to the 
end of the name. 


How it All Works 


When you type CTRL-E to enter the editor, line 1090 transfers 
the filename into an edit buffer located in the screen memory 
at $757-$774. The main loop of the editor is lines 1190-1320. 
All through the editor the Y-register is the cursor position in 
the line. The routine DISPLAY.EDIT.BUFFER places the brackets 
before and after the name, puts bars over any control 
characters, displays the cursor, and gets the next keystroke. 
The main loop then checks whether that key was a control. 
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OBAO- 
OBA1- 
OBA2- 
OBA4- 
OBA7- 


OBAA-, 


OBAD- 
OBAE- 
OBBO- 
OBB1- 


OBB2- 
OBB4- 
OBB6- 
OBB7- 


OBB8- 
OBBA- 
OBBD- 
OBBF- 
OBC2- 


OBC3- 
OBC4- 
OBC5- 
OBC7- 
OBC9- 
OBCC- 
OBCF- 
OBDO- 
OBD2- 
OBD4- 
OBD7- 


OBD8- 
OBDA- 


OBDB- 
OBDD- 
OBEO- 
OBE2- 
OBE4- 
OBES5- 
OBE7- 
OBE9- 
OBEB- 
OBEC- 


OBED- 
OBEE- 
OBEF- 


Apple Assembly Line 


68 
68 
A9 
99 
20 
4C 


88 
10 
c8 
60 


co 
BO 
c8 
60 


A9 
8D 
A9 
8D 
60 


98 
AA 
EO 
FO 
BD 
9D 
E8 
90 
A9 
9D 
60 


AO 
60 


AO 
B9 
c9 
DO 
88 
10 
C0 
FO 
C8 
60 


68 
68 
4C 


1590 


1600 
1610 
A2 1620 
D7 07 1630 
Al 0C 1640 
81 0B 1650 
1660 
1670 
1680 
01 1690 
1700 
1710 
1720 
1730 
1D 1740 
01 1750 
1760 
1770 
1780 
1790 
FF —s-: 1800 
F7 0C 1810 
DC 1820 
FB OC 1830 
1840 
1850 
1860 
1870 
1880 
1D 1890 
09 1900 
58 07 1910 
57 07 1920 
1930 
F3 1940 
AO 1950 
57 07 1960 
1970 
1980 
1990 
00 2000 
2010 
2020 
2030 
1D 2040 
57 07 2050 
AO 2060 
03 2070 
2080 
F6 2090 
1D 2100 
01 2110 
2120 
2130 
2140 
2150 
2160 
2170 
43 0B 2180 


E.OVERRIDE 
PLA 
PLA 
LDA #SA2 SET CURSOR 
STA CURSOR.LINE,Y TO " 
JSR GETKEY 
JMP INSERT.CHARACTER 
Pee ee ee ewe ee a i ee me ee eee 
E.LEFT.ARROW 
DEY MOVE CURSOR LEFT 
BPL .1 IF IT WENT NEGATIVE 
INY RESTORE IT TO 0 
ol RTS 
FE ce cee ce ce ws we oe we we ew we es oe wm re we oe oe me me me 
E. RIGHT. ARROW 
CPY #29 AT END YET? 
BCS .1 YES, IGNORE 
INY NO, MOVE CURSOR RIGHT 
ol RTS 
Pe cme ere es ss ce ee ae we ee oe we we we me oe ww we em ee ee i we a 
E. INSERT 
LDA #SFF TURN INSERT ON 
STA INPUT.MODE 
LDA #$DC 
STA CURSOR 
RTS 
Se ee eee we ee ws oe wm we oe wm we wm we mm we me we ee ee me oe 
E.DELETE 
TYA SET X TO 
TAX CURSOR 
ol CPX #29 AT END? 
BEQ .2 BRANCH IF SO 


LDA EDIT.BUFFER+1,X 
STA EDIT.BUFFER,X MOVE ONE CHAR 


INX NEXT 
BCC .1 ~» ALWAYS 
02 LDA #SPACE PUT SPACE 
STA EDIT.BUFFER,X ON END 
RTS 
tone ee ee ee 
E.BEGINNING 
LDY #ZERO ZERO CURSOR 
RTS 
ko ee ee ee 
E.END 
LDY #29 START AT END OF BUFFER 
ol LDA EDIT.BUFFER,Y 
CMP #SPACE SPACE? 
BNE .2 NO, WE'RE AT END OF NAME 
DEY YES, MOVE LEFT 
BPL .1 AND TRY AGAIN 
22 CPY #29 STILL AT END OF BUFFER? 
BEQ .3 YES, STAY THERE 
INY NO, RIGHT ONE SPACE 
3 RTS 
*#o ee ee ee ee 
E.RESTORE 
PLA POP A RETURN 
PLA ADDRESS AND 


JMP RENAME.FILE START OVER 
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If the keypress waS not a control character, it is passed to 
the input section (lines 1340-1570), where the character is 
masked according to the current MASK.MODE (Normal, Inverse, 
Flashing, or Lower-case) and either inserted or just placed in 
the line. The program then jumps back to E.START to redisplay 
the buffer and get the next key. 


If you do enter a control character, the program JSR's to the 
SEARCH.AND.PERFORM routine at lines 3250-3390 (taken straight 
from Bob's article in the August '82 AAL.) Here we look up the 
command key in the table at lines 3420-3550 and do a PHA, PHA, 
RTS type branch to the appropriate command handler, or to the 
monitor's BELL, if the command didn't match anything in the 
table. 


Almost all of the command handlers end with an RTS that returns 
control to line 1320. The exceptions are OVERRIDE (lines 
1590-1650) and RESTORE (lines 2150-2180), since they exit 
through internal JMP's, and RETURN/ESC (lines 2660-2720), since 
those return to the main program. Another oddity is the FIND 
routine (lines 2420-2640), since it has two exits. Line 2640 
returns to line 1320 through the BELL routine. Lines 2590-2620 
are needed to process a keystroke that is not a repetition of 
the search key. 


RAM/ROM PROGRAM DEVELOPMENT BOARD $35.00 
Plugs into any Apple slot. Holds one user-supplied 2Kx8 memory chip. Use a 6116 type RAM chip for 
program development or just extra memory. Plugin a programmed 2716 EPROM to Keep your favorite routines 
‘on-line’. Maps into $Cn00-6CnFF and $CB00-SCFFF memory space. Instructions & circuit diagran provided. 


The “MIRROR?” : Firmware for Apple-Cat $297.00 
Communications ROM plugs directly into Novation’s modem card. Three basic modes: Dumb Terminal, Remote 
Console & Programmable Modem. Added features include: Printer buffer, Pulse or Tone dialing, true 
dialtone detection, audible ring detect and ring-back option. Directly supports many 90-column boards 
(even while printing) and Apple’s Comm card commands. (Apple-Cat Hardware differences prevent 1007 
interchangability with Come card.) Includes Hayes-to-AppleCat register equivalances for sottware. 
conversion. Telephone Software Connection (213-516-9430) has several programs which support the ‘MIRROR’. 


The “PERFORMER’ : Smarts For Your Printer $497.00 
Get the most from your smart printer by adding intelligence to your ‘dumb’ interface card. The PERFORMER § 
Board plugs into any Apple slot for immediate access (no programs to find and toad). Easily select 
printer fonts and many other features via a user-friendly menu. Replaces manual printer set-up. No need 
to remember ESC commands. Also provides TEXT and GRAPHICS screen dumps. Compatible with Apple, Tymac, 
Epson, Microtek and similar ‘dumb’ Centronics type parallel I/F boards. Specify printer: EPSON MX80 
W/G6r-aftrax-80, EPSON MX100, EPSON MXSO/MX100 W/Graftrax Plus, NEC 8023A, C.Itoh 6510 (Prowriter), OKI 
Microline 82A/83A W/OKIGRAPH. (OKI Bonus: The PERFORMER Generates ENHANCED and DOUBLE STRIKE Fonts) 


Avoid A $3.00 Shipping/Handl ing Charge By Mailing Full Payment With Order 
RAK -WARE 
41 Ralph Road 
West Orange NJ @7052 


aaxee SAY YOU SAd IT IN “APPLE ASSEMBLY LINE’! tees 
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1010 *-------------------------------- 


6034- 1020 MON.YSAVE -EQ $34 
06D7- 1030 CONTROL.LINE .EQ S6D7 
0757- 1040 EDIT.BUFFER .EQ $757 
07D7- 1050 CURSOR.LINE .EQ $7D7 
FF3A- 1060 MON.BELL -EQ SFF3A 
1070 *-------------------------------- 
1080 RENAME.FILE 
0OB43- 20 48 0C 1090 JSR MOVE.FILE.INTO.BUFFER 
OB46- AO FF 1100 LDY #SFF 
OB48- 8C F9 0C 1110 STY MASK.ONE INITIALIZE 
OB4B- C8 | 1120 INY 
OB4C- 8C F7 OC 1130 STY INPUT.MODE VARIABLES 
OB4F- 8C FA 0C 1140 STY MASK.TWO 
OB52- 8C F8 OC 1150 STY MASK.MODE 
OB55- AY DE 1160 LDA #SDE 
0B57- 8D FB 0C_ 1170 STA CURSOR 
1180 *-------------------------------- 
1190 E.START 
OB5A- 20 6E OC 1200 JSR DISPLAY.EDIT.BUFFER UPDATE DISPLAY 
1210 * AND GET KEYSTROKE 
1220 
1230 REENTRY 
OB5D- C9 AO 1240 CMP #SAO0 CONTROL? 
OB5F- BO 12 1250 BCS E.INPUT NO, INPUT IT 
OB61- AY 00 1260 LDA #ZERO YES, 
OB63- 8D F7 0C_ 1270 STA INPUT.MODE TURN OFF INSERT 
OB66- AY DE 1280 LDA #SDE * 
OB68- 8D FB 0C_ 1290 STA CURSOR 
OB6B- A2 00 1300 LDX #ZERO 
OB6D- 20 BO 0C 1310 JSR SEARCH.AND.PERFORM GO DO SOMETHING 
OB70- 4C 5A OB 1320 JMP E.START 
1330 *--------------------------- = 
1340 E. INPUT 
0B73- 2D F9 OC 1350 AND MASK.ONE CONDITION 
0OB76- OD FA 0C_ 1360 ORA MASK.TWO CHARACTER 
OB79- 8D F5 0C_ 1370 STA CURRENT.CHAR 
OB7C- 2C F7 OC 1380 BIT INPUT.MODE INSERT OR OVERTYPE? 
OB7F- 10 11 1390 BPL PLACE.CHARACTER 
1400 
1410 INSERT .CHARACTER 
OB8l1- 84 34 1420 STY MON. YSAVE SAVE CURSOR 
OB83- A2 1D 1430 LDX #29 START AT END OF BUFFER 
OB85- £4 34 1440 .1 CPX MON.YSAVE TO CURSOR YET? 
OB87- FO 09 1450 BEQ PLACE.CHARACTER YES 
OB89- BD 56 07 1460 LDA EDIT.BUFFER-1,X NO, MOVE CHAR UP 
OB8C- 9D 57 07 1470 STA EDIT.BUFFER,X TO MAKE HOLE 
OB8F- CA 1480 DEX NEXT CHAR 
OB90- 10 F3 1490 BPL .1l .. ALWAYS 
1500 
1510 PLACE.CHARACTER 
OB92- AD F5 0C_ 1520 LDA CURRENT.CHAR 
OB95- 99 57 07. 1530 STA EDIT.BUFFER,Y 
OB98- CO 1D 1540 CPY #29 END OF BUFFER? 
OB9A- BO O01 1550 BCS .1 YES, RETURN 
OB9C- C8 1560 INY NO, MOVE CURSOR 
OB9D- 4C 5A OB 1570 .1 JMP E.START 
1580 *---------------------------- ooo 
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S-C Macro Cross Assemblers 


The high cost of ‘dedicated microprocessor development systems has 
forced many technical people to look for alternate methods to develop 
programs for the various popular microprocessors. Combining the 
versatile Apple II with the S-C Macro Assembler’ provides a cost 
effective and powerful development system. Hobbyists and engineers 
alike will find the friendly combination the easiest and best way to 
extend their skills to other microprocessors. 


The S-C Macro Cross Assemblers are all identical in operation to the 
S-C Macro Assembler; only the language assembled is different. They 
are sold as upgrade packages to the S-C Macro Assembler. The S-C 
Macro Assembler, complete with 100-page reference manual, costs $80; 
once you have it, you may add as many Cross Assemblers as you wish at 
a nominal price. The following S-C Macro Cross Assembler versions are 
now available, or soon will be: 


Motorola: 6800/6801/6802 now $32.50 
6805 now $32.50 
6809 now $32.50 
68000 now $50 
Intel: 8048 now $32.50 
8051 soon $32.50 
8085 soon $32.50 
Zilog: Z-80 now $32.50 
RCA: 1802/1805 soon $32.50 
Rockwell: 65C02 now $20 
The S-C Macro Assembler family is well known for its ease-of-use and 
powerful features. Thousands of users in over 30 countries and in 
every type of industry attest to its speed, dependablility, and 
user-friendliness. There are 20 assembler directives to provide 


powerful macros, conditional assembly, and flexible data generation. 
INCLUDE and TARGET FILE capabilities allow source programs to be as 
large as your disk space. The integrated, co-resident source program 
editor provides global search and replace, move, and edit. The EDIT 
command has 15 sub-commands combined with global selection. 


Each S-C Assembler diskette contains two complete ready-to-run 
assemblers: one is for execution in the mother-board RAM; the other 
executes in a 16K RAM Card. The HELLO program offers menu selection 
to load the version you desire. The disks may be copied using any 
standard Apple disk copy program, and copies of the assembler may be 
BSAVEd on your working disks. 


S-C Software Corporation has frequently been commended for outstanding 


support: competent telephone help, a monthly (by subscription) 
newsletter, continuing enhancements, and excellent upgrade policies. 


S-C Software Corporation (214) 324-2050 
P.O. Box 280300, Dallas, Texas, 75228 
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OBF2- 
OBF5- 
OBF8- 
OBFA- 
OBFD- 
OBFE- 
0col- 
0co04- 
0c07- 
OCOA- 


OCOB- 
ococ- 
0CcOD- 
OCcOF- 
0Cc12- 
0C13- 
0c15- 
0cl7- 


0c18- 
0C1B- 
OC1E- 
OC1F- 
0C20- 
0Cc21- 
0C23- 
0C25- 
0C28- 
0C2B- 
0Cc2D- 
OC2E- 
OC2F- 


0C32- 
0C35- 
0C37- 
0C38- 
0C39- 
0C3C- 


OC3F- 


0c42- 


0c45- 
0C46- 
0C47- 


0c48- 
OC4B- 
OC4E- 
0Cc50- 
0C52- 


Apple 


68 
68 
60 


AD 
20 
AO 
Bl 
99 


Assembly Line 


F8 
F8 
03 
F8 


ED 
F9 
Fl 
FA 


AO 
57 


1E 
F8 


Al 
F6 


1E 
1A 
57 
F6 
F3 


6E 
F6 
E7 
F5 
5D 


3A 


5B 


OC 
OC 


0c 
OC 
OC 


OC 
OC 


07 


Te 
Oc 


07 
OC 


0c 
oc 


0c 
OB 
FF 


OC 


OD 
0A 


07 


2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 


2320. 


2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 


E.SET.MODE 
INC MASK.MODE NEXT MODE 
LDA MASK.MODE IF MODE = 4 
AND #3 MAKE IT ZERO 
STA MASK .MODE 
TAX USE MODE FOR INDEX 
LDA MASK.ONE.TABLE,X AND SET 
STA MASK.ONE MASKS 


LDA MASK.TWO.TABLE, X 
STA MASK.TWO 


TYA START AT 
TAX CURSOR 
LDA #SPACE 

ol STA EDIT.BUFFER,X 


E.FIND 
JSR GETKEY GET SEARCH KEY 
STA SEARCH. KEY 

ol TYA 


02 INX START AT CURSOR+1 
CPX #30 END? 
BCS .3 YES, NOT FOUND 
LDA EDIT.BUFFER,X 
CMP SEARCH.KEY MATCH? 


BNE .2 NO, NEXT X 
TXA YES, MOVE CURSOR 
TAY 
JSR DISPLAY.EDIT. BUFFER 

* NEXT KEYPRESS 
CMP SEARCH. KEY SAME CHARACTER? 
BEQ .1 YES, FIND IT AGAIN 
PLA NO, PULL A RETURN 
PLA ADDRESS AND GO 


LDA CURRENT.CHAR 


JMP REENTRY PROCESS THIS KEY 


3 JMP MON.BELL RETURN THROUGH BELL 
Dee ew we ee wr we ew em eee ee ee 
E. RETURN 
JSR MOVE. BUFFER. INTO.ARRAY 
E.ESCAPE 
PLA POP ONE RETURN 
PLA ADDRESS AND RETURN 
RTS TO ARRANGING 
Fe ee es eee ree ee ee ee we we we we wm we we we we we a ee 
MOVE. FILE. INTO.BUFFER 
LDA ACTIVE.ELEMENT SET 
JSR POINT.TO.A POINTER 
LDY #3 
el LDA (POINTER) ,Y , MOVE 


STA EDIT.BUFFER-3,Y NAME 
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QuicKTRACE 


relocatable program traces and displays the actual machine operations, while it is running 
without interfering with those operations. Look at these FEATURES: 


Single-Step mode displays the last instruction, 
next instruction, registers, flags, stack contents, 
and six user-definable memory locations. 


Trace mode gives a running display of the Single- 
Step information and can be made to stop upon 
encountering any of nine user-definable 
conditions. 


Background mode permits tracing with no display 
until it is desired. Debugged routines run at near 
normal speed until one of the stopping cond- 
itions is met, which causes the program to return 
to Single-Step. 


QUICK TRACE allows changes to the stack, 
registers, stopping conditions, addresses to be 
displayed, and output destinations for all this 
Information. All this can be done in Single-Step 
mode while running. 


Two optional display formats can show a sequence 
of operations at once. Usually, the information 
is given in four lines at the bottom of the screen. 


QUICK TRACE is completely transparent to the 
program being traced. It will not interfere with 
the stack, program, or I/O. 


QUICK TRACE is relocatable to any free part of 
memory. Its output can be sent to any slot or to 
the screen. 


QUICK TRACE is completely compatible with 
programs using Applesoft and Integer BASICs, 
graphics, and DOS. (Time dependent DOS 
operations can be bypassed.) It will display the 
graphics on the screen while QUICK TRACE Is 
alive. 


QUICK TRACE is a beautiful way to show the 
incredibly complex sequence of operations that 
a computer goes through in executing a program 


QuIcKTRACE $50 


Is a trademark of Anthro-Digital, Inc. 
Copyright © 1981 
Written by John Rogers 


See these programs at participating Computerland and other 


fine computer stores. 


Anthro - Digital Software, Inc. 


P.O. Box 1385 Pittsfield, MA 01202 
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0c55- 
0c56- 
0c58- 
OC5A- 


OC5B- 
OC5E- 
océ6l- 
0Cc63- 
0C66- 
0C68- 
0Cc69- 
OC6B- 
0Cc6éD- 


OC6E- 
0c70- 
0C73- 
0C75- 
0Cc78- 
OC7A- 
0c7Cc- 
OC7F- 
0C82- 
0c85- 
0Cc87- 
0c89- 
OC8B- 
0c8D- 
OC8F- 
0C92- 
0C93- 
0c95- 
0c98- 
OC9B- 
OC9E- 


0CA1- 
OCA4- 
OCA6- 
OCA9- 
OCAC- 


OCAD- 
OCAE- 
OCAF- 


OCBO- 
0CB3- 
OCB5- 
OCB8- 
OCBA- 
OCBD- 
OCBE- 
occl- 
0CC2- 


Apple Assembly Line 


8D 
A2 
A9 
9D 
9D 
BD 
cg 
BO 
c9 
90 
AS 
9D 
CA 
10 
AD 
2D 
OD 
99 


AD 
10 
8D 
8D 
60 


E8 
E8 
E8 


BD 
FO 
CD 
DO 
BD 
48 
BD 
48 
60 


21 
F6 


C3 
05 
F5 
F3 
C5 


C4 


OD 
OA 


07 


07 


06 
07 


06 


oc 
OC 
0c 
07 
co 


co 
0c 


OC 
OC 
Te 


OC 


2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 


INY 
CPY #$21 
BCC .1 


om oe ee Oe Oe Oe oe Oe = Om Oo © & &. & &: oo ow ee & & ee ee ee 


MOVE. BUFFER. INTO.ARRAY 


el 


LDA ACTIVE.ELEMENT MAKE 
JSR POINT.TO.A POINTER 
LDY #3 

LDA EDIT.BUFFER-3,Y MOVE 
(POINTER) ,Y NAME 


#$21 
1 


DISPLAY.EDIT.BUFFER 


ol 


02 


LDA #S$DD J 

STA EDIT.BUFFER-l LEFT END 

LDA #SDB [ 

STA EDIT.BUFFER+30 RIGHT END 

LDX #29 

LDA #SPACE 

STA CONTROL.LINE,X REMOVE OLD CONTROL 
STA CURSOR.LINE,X BAR AND CURSOR 

LDA EDIT.BUFFER,X 
CMP #SA0 

BCS .2 

CMP #$80 

BCC .2 

LDA #SDF _ 

STA CONTROL.LINE,X 
DEX 

BPL .l 

LDA CURSOR 

AND MASK.ONE 

ORA MASK.TWO 

STA CURSOR.LINE,Y AND SHOW IT 


CONTROL? 


YES, PUT BAR 


GET CURSOR, 
CONDITION IT, 


GETKEY LDA KEYBOARD 


BPL GETKEY 

STA KEYSTROBE 
STA CURRENT .CHAR 
RTS 


SEARCH. AND. PERFORM. NEXT 


INX 
INX 
INX 


NEXT ENTRY 


SEARCH.AND. PERFORM 


el 


LDA EDIT.TABLE,X 
BEQ .1l 

CMP CURRENT .CHAR 
BNE SEARCH.AND. PERFORM. NEXT 

LDA EDIT.TABLE+2,X LQW BYTE OF ADDRESS 
PHA 

LDA EDIT.TABLE+1,X HIGH BYTE 

PHA 
RTS 


GET VALUE FROM TABLE 
NOT IN TABLE 


‘GO DO IT! 
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3400 
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3410 EDIT.TABLE 
O0CC3- 82 D7 OB 3420 -DA #$82,E.BEGINNING-1 “B 
OCC6- 84 C2 OB 3430 .DA #$84,E.DELETE-1 “D 
OCC9- 85 DA OB 3440 ~DA #$85,E.END-1 “E 
Occc- 86 17 0C 3450 -DA #$86,E.FIND-l “F 
OCCF- 88 AC OB «3460 -DA #$88,E.LEFT.ARROW-1 <-- 
OCD2- 89 B7 OB 3470 -DA #$89,E.INSERT-1 “I 
OCD5- 8D 41 0C 3480 DA #$8D,E.RETURN-1 RETURN 
OCD8- 8F 9F 0B 3490 DA #$8F,E.OVERRIDE-1 *O 
OCDB- 92 EC OB 3500 -DA #$92,E.RESTORE-1l “R 
OCDE- 93 Fl OB 3510 -DA #$93,E.SET.MODE-1 “s 
OCE1- 95 Bl OB 3520 -DA #$95,E.RIGHT.ARROW-l --> 
OCE4- 9A OA 0C 3530 .DA #$9A,E.ZAP-1 *¢ 
OCE7- 9B 44 0C 3540 -DA #$9B,E.ESCAPE-1 ESC 
OCEA-. 00 39 FF 3550 -DA #$00,MON.BELL-1 OTHERS 
3560 *#---- a nn ee 
3570 MASK.ONE.TABLE 
OCED- FF 3F 7F 
OCFO- FF 3580 DA #SFF,#S3F,#S7F,#SFF 
3590 
3600 MASK.TWO. TABLE 
OCF1- 00 00 40 
OCF4- 20 3610 -DA #S800,#S00,#$40,#$20 
3620 *-------------------------------- 
OCF5- 3630 CURRENT.CHAR .BS 1 
OCF6- 3640 SEARCH.KEY -BS l 
OCF7- 3650 INPUT.MODE -BS 1 (0 OR SFF) 
OCF8- 3660 MASK.MODE ~-BS 1 (0 TO 3) 
OCF9- 3670 MASK.ONE ~-BS 1 (FROM TABLE ABOVE 
OCFA- 3680 MASK.TWO -BS 1( " . . 
OCFB- 3690 CURSOR -BS 1 (SDE, SDC, OR SA2) 
3700 * (* , \, OR *) 


Quickie No. SC ccc ccc ccc ccc ccc cece ec cc ccc cc ccce eHOrst Schneider 
To print a dashed line on the screen: 


JSR $FD9IC 
JSR $FCA3 


Print one dash 

same character across screen 
To print any character across screen: 
LDY #0 


LDA #$xx 
JSR S$FCA3 


xx ASCII screen code for char 


To print any character across most of screen: 


LDY #xx xx = Starting column 
LDA #Syy yy = ASCII screen code for char 
JSR $FCA3 
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Adding Decimal Values from ASCII Strings...Bob Sander-Cederlof 


The program below shows a nifty way to add two decimal values 
together and get the result as an ASCII string, without ever 
converting decimal to binary or binary to decimal. 


The example shows two six-character values being added, but any 
length would work the same. For simplicity'’s sake I used a 
leading zero format, and allow no signs or decimal points. 
Fancier features can wait for more cerebral times. 


The beautiful part is the way the 6502's carry flag works. On 
entering the add loop, I clear carry. Then I add a pair of 
digits, preserving the ASCII code. If the sum is more than "9" 
($39), the CMP will leave carry set, prepared for subtracting 
10 at line 1160. After subtracting 10, carry will be set 
(because the SBC caused no borrow). This carry then propagates 
to the next digit. 


Strictly speaking, I should allow the sum to be one digit 
longer than the addend and augend strings, and store the final 
carry value there. Any reasonably useful version would also 
allow leading blanks and decimal points, be callable as an 
&-routine with string parameters, automatically handle 
non-aligned decimal points, and allow negative numbers. I'll 
try all these for next month. 


1000 *SAVE S.STRING.ADD 


1010 *enr nnn rr rrr rrr rrr rr rr nr nnn 
1020 * STRING ADDITION 
1030 *erm rn nn rrr rrr rrr rrr rrr nnn 
0800- 30 30 30 
0803- 31 38 39 1040 Sl -AS /000189/ 
0806- 30 30 37 
0809- 30 33 30 1050 S2 -AS /007030/ 
L060 *emm rrr rrr rrr rr rrr nnn rn 
080C- 20 20 20 
O80F- 20 20 20 1070 S3 AS / / 
L080 *--- nn nn rrr rrr rr rrr rrr nnn 
0812- A2 05 1090 ADD LDX #5 6 DIGITS 
0814- 18 1100 CLC START WITH NO CARRY 
0815- BD 00 08 1110 .1 LDA S1,X NEXT DIGIT PAIR 
0818- 29 OF 1120 AND #SO0F CHANGE ASCII TO BINARY CODE 
O81A- 7D 06 08 1130 ADC S2,X RESULT IS IN ASCII AGAIN 
O81D- C9 3A 1140 CMP #S$3A UNLESS MORE THAN 9 
O81F- 90 02 1150 BCC .2 OKAY 
0821- ES OA 1160 SBC #10 NEED TO PROPAGATE CARRY 
0823- 9D OC 08 1170 .2 STA S3,X SUM DIGIT 
0826- CA 1180 DEX MORE DIGITS? 
0827- 10 EC 1190 BPL .1 YES x 
0829- 60 1200 RTS NO, RETURN 
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Help Wanted? 


Assistant Programmer” 


Menu Generator and Screen Text Editor 

Accepts all characters from keyboard (including ““[/ _”). 
S hifts individual lines or entire page with I-J-K-M keys. 
S plits a line or combines two lines at cursor position. 
I nserts input or variable print commands at cursor position. 

paces added or deleted between lines with a single keystroke. 
T ext file created to “EXEC” menu (BASIC) into your program. 

ccents your titles with borders, using minimum amount of bytes. 
No disk swapping, entire program resides in memory for easy access. 
T ext file created that reinstalls screens for future development. 


P rints copy of menu in screen format with row and column edge scales. 
Renders line at cursor position inverse or flashing with keystroke. 
Overhaul your existing menu with transparent capture routine. 
ives printed list of input/print commands with row & column numbers. 
R ight, left and center justification of menu at cursor position. 
Al features and procedures fully documented and tutored. 
Menus can be designed on the screen, no need for graph paper layouts. 
akes horizontal lines print in vertical format at the touch of a key. 
E rror messages displayed for all options (display voidable). 
eturn coupon for your ticket to fast, efficient and friendly menus. 


ALL FOR ONLY $49.95. 


Requirements: Apple II Plus* with 48K & disc drive. 
*Apple II is a registered trademark of 
Apple Computer, Inc. 


O | Barney Stone’s 
xe Ae MICRO MEMO Ileatenaar/tickte file/phone listing 


Improving the Proven: completely compatible with Micro Memo 
RUSH O Assistant Programmer, 
O Micro Memo Il, at once! 
O Enclosed is check or money order for $49.95 each.* 
O Please ship COD (add $3.00 for COD charge). 
Dealer inquiries welcome. *Pa. residents add 6% sales tax. 


S. oph-Key ae 


P.O. Box 387 
Flourtown PA 19031 *°ORESS 
(215) 836-1056 GITy STATE ZiP 
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Still More on Hardcore Magazine...........-.Bob Sander-Cederlof 


I bought the latest, Vol. 1 No. 3, off the newsstand a few days 
ago. It is 72 pages, $3.50. I believe those 72 pages far 
surpass in usefulness the 600-odd pages of some familiar 
monthlies. A highlight for me was a complete assembly listing 
(in S-C format!) of HyperDOS, by John Bridges. 


HyperDOS modifies the LOAD and BLOAD commands so that loading 
runs up to five times faster. This is the same improvement 
factor offered by a half dozen DOS-mods on the market, such as 
DOS Enhancer from S&H Software. (Of course, DOS Enhancer also 
speeds up SAVE and BSAVE, and include many other useful 
utilities with the package.) 


If you are a nibble copier, you will be pleased with the 
listing of parameters for Locksmith and Nibbles Away II. As 
usual, there are a lot of hints on "how to unlock" those 
copy-protected disks: see "Controlling the I.0.B.", and "Boot 
Code Tracing". 


Bev Haight (author of "Night Falls", among others) gives some 
excellent information on graphics, games, and even secrets to 
publishing. Bev describes, explains, and lists a new game 
called "Zyphyr Wars" for your pleasure and edification. 


There is a lot more. Even an interview with Mike Markkula 
regarding Apple's position on software protection! 


Issue number 4 promises to focus on graphics: novice-to-expert 
how-to's, complete graphic aid programs, tables, charts, 
reviews, etc. 


The New "What's Where"... c.ccccccccccceceee BOD Sander-Cederlof 


Micro has doubled the size and tripled the value of their 
"What's Where in the Apple" book. There is now a 152-page 
double-column type-set 20-chapter text together with the 
previously published atlas and gazetteer. The new edition 
retails at $24.95 (our price $23). 


If you already have the older edition, you only need the 
update, called "The Guide to What's Where", for $9.95 retail 
(our price ($9 even). 


If you order books from us, remember to include enough for 
shipping. 
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“When some Apple enthusiasts heard ~ VWs. oclhic 
about the boycott (of bit-copy ads), they con- 


cluded that it was nothing but censorship and 
another example of the magazines ignoring 
the average Apple user to placate their adver- Ce ) | 
tlsers. So they started their own publication, 


HARDCORE Computing  ” ESQUIRE, Jan. 1982 


what Is hardcore computing ? 


its a “HOW TO” guide for users 


| How To Write Your Own Data Base 
about Using text files and EXEC 
DOS CALLing DOS routines from BASIC 


source listings of special DOS routines 


applesoft tricks ‘n treats PEEKS 
ampersand (&) utilities And 
subroutine master library POKES 


plus... 


Lots of complete program listings from the 
HARDCORE Program Library of copyable software 


UP GONG ser 


N©-A Ail About Graphics! 
Program Utilities. 
Games ? 


NH» 


HardCore Computing is a quarterly magazine. 
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Programming a Language Card...cccsccccscccccecccceee Bill Morgan 


Recently wo've received a couple of questions about the exact 
meaning of al] those $C08x addresses used to access a language 
(or RAM) card in slot 0. Here's a rundown of what memory cards 
are and how to use them. 


A RAM card is a plug-in board containing an extra 16K (or more) 
of memory, which can be used instead of the language ROMs on 
your Apple motherboard. The $C0O8x addresses are switches that 
determine which memory will be used whenever you read or write 
an address from SDOOO-SFFFF. With the proper use of the 
Switches on a 16K card, your Apple becomes a machine with 76K 
of memory! (That includes motherboard RAM, motherboard ROM, 
and the full RAM card.) 


Here's a summary of the addresses and their functions: 


Address Read Write Bank 
$c080 Card Mother 2 
$co081* Mother Card 2 
$c082 Mother Mother 2 
$Cc083* Card Card 2 
$C088 Card Mother 1 
$c089* Mother Card ] 
SCO8A Mother Mother 1 
SCO8B* Card Card 1 


The stars indicate addresses which must be accessed twice to 
have effect (these are the ones that write-enable the card.) 


These addresses are “soft switches", much like those for 
Switching the screen display modes. To throw a switch, just 
use a LDA or any instruction that reads the location. From 
BASIC you can use a PEEK. STA or POKE also work with most RAM 
cards, but not all of them. Experiment with yours to see how 
it behaves. If you're writing a program for use on other 
people's Apples it's safest to stay with instructions that read 
the location. 


The Bank column refers to the fact that a language card 
actually has 16K of memory, but the range from $D000 to SFFFF 
is only 12K. The other 4K ought to be SCOOO-SCFFF, but that's 
the area that Apple uses for special Input/Output functions. 
Therefore, there is an extra 4K “bank" which can be addressed 
at S$DOOO-DFFF. Normally, only Bank 2 is used. If a program 
gets bigger than 12K it becomes necessary to use Bank 1, but 
that starts getting complicated. The best approach is to put 
routines or data in bank 1 that don't have to refer to anything 
in bank 2. You can then have the main code above $E000 decide 
which bank to use. 
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Some programs seem to use the motherboard and RAM card memories 
at the same time. Examples of this are ES-CAPE.LC and the 
programs that relocate DOS into the RAM card. Generally, these 
have a short "bridge" or "Switcher" routine somewhere in the 
motherboard RAM. When the program in the RAM card needs to 
call a routine in the motherboard ROM, it actually calls the 
bridge. The bridge routine then throws the appropriate $C08x 
Switches and calls the necessary ROM routine. When that 
routine finishes, the bridge then switches back to the RAM card 
and continues the program there. 


Another thing to consider is whether the program in the RAM 
card needs the system monitor. If so, you need to make Sure 
there is a copy of the monitor on the RAM card. Here's how to 
use the monitor to copy itself into a RAM card: 


}CALL~-151 
*C081 C081 
*F800<F800.FFFFM 


That monitor move instruction looks like nonsense, but remember 
that the $C081 switch sets the computer to read from the 
motherboard and write to the RAM card. 


The Book of Apple Software 1983 


It’s huge! Nearly 500 pages of insightful reviews and 
comparison charts, covering business, education, utilities, and 
games. The review of seven assemblers includes Merlin, Lisa 
2.5, Tool Kit, LJK Edit 6502, MAE, S-C Assembler II (4.0) and 
S-C Macro Assembler. S-C Macro tied for first place with 
Merlin in the overall ratings, but surged ahead in the detail. 
Consider: not copy protected, typeset programmer reference 
card, cassette support, monitor and DOS commands without 
leaving assembler, FANTASTIC upgrade policy, RAM card optional, 
compressed source code, 32 character labels, and more. 


Anyway, back to The Book....you owe it to yourself to consult 
therein before buying software. Even if the one you want to 
buy isn't in the book, you will get a broader perspective. I 
recommend it. 
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Seed Thoughts on ExtensSions.......ceeeeeeeeeanford Greenfarb 


I am currently between computers. My 4 1/2 year old Apple died 
and I have ordered a Basis 108 to replace it. While waiting, I 
have been doing some thinking; I came to the conclusion that I 
can extend, by appropriate coding, either the monitor or 
Applesoft (or both) into the unused 4K bank of my 16K RAM card. 
That second 4K bank at SDOOO-DFFF is just sitting there, with 
nothing to do. In all the Apple mags I have seen no one 
approaches thi idea. Maybe they know something I don't, but as 
soon as my computer comes I am going to try it. 


I suspect that I could insert code at SFF7A in the monitor to 
Switch 4K banks and jump to $D000 for a modified character 
search subroutine. This way I could add more control 
characters and routines to the monitor. This would add 
features while keeping all the standard entry point address 
unchanged. 


I don't know why no one has used this concept, or at least not 
publicly. I am offering this idea to you readers of Apple 
Assembly Line. I can't work on it until my new computer comes 
anyway, and you will probably think of a lot of good uses. 


DISASM (Version 2.2) $30.00 
Use DISASM, the intelligent disassembler, to convert 6502 machine code into meaningful, symbolic source. 

It creates a text file which is directly compatable with DOS ToolKit, LISA and S-C (both 4.0 & Macro) 
Assenblers. Use DISASH to customize existing machine language programs to your ow needs or Just to see 
how they work. DISASH handles aultiple data tables, invalid op codes and displaced object code (the 
program being disassembled doesn’t have to reside in the memory space in which it executes). DISAGY lets 
you even substitute MEANINGFUL labels of your own choice (100 commonly used Monitor & Pg Zero names 
included in Source form to get you rolling). The address-based cross reference table option results in 
either a selective or complete cross reference (to either screen or printer). Page Zero and External 
references are Jisted separately in numeric order. The cross reference table provides as much insight 
into the inner workings of machine Janquage programs as the disassembly itself. DISASH has proven to be 
an invaluable aid for both the novice and expert alike. 


Utilities For Your S-C Assembler (4.0) 
SC.65R: A Global Search and Replace Eliminates Tedious Manual Renaming Of Labels.........+00...$20.00 
SC.XREF: A Linenumber-Based Global Cross Reference Table For Complete Source Documentation......$20.00 
SC.TAB: Tabulates Source Files Into Neat, Readable Form. Encourages Fast, Free-Format Entry....$15.00 
SC UTILITY PAK: Includes All Three Utilities Described Above (You Save $10.00).....sccesecceces $45.00 


All of the above programs are written entriely in machine language and are provided 
on a standard 3.3 DOS formatted diskette. 


Avoid A $3.00 Shipping/Handl ing Charge By Mailing Full Payment With Order 


RAK -WA RE 
41 Ralph Road 
West Orange NJ Q7052 


waeee SAY YOU SAW IT IN “APPLE ASSEMBLY LINE’! sua 
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A Plug for some Neat New Products.........6.++e.-eeRichard Fabbri 
Ridgefield, CT 


Take a peek at BYTE Magazine, August 1982, Steve Ciarcia's 
article on the TMS9918-based Color graphics for Apple II. It 
has proved to be -fantastic! You get 15 colors plus 
transparent, 32 ‘sprite planes to overlay a 15-color hi-res of 
256 dots by 192 lines. It works as advertised! Digital 
Dimensions (see BYTE, Nov 1982, page 352) advertises this as 
"E-Z Color" board, for $230. I have had one now for a month. 


Two other neat new board for the Apple from Number Nine 
Computer Engineering Inc: 


* a graphics board with 1024x1024 resolution; 256 colors 
from a palette of 4096; HARDWARE drawing of circles, 
arcs, rectangles and vectors; characters; area fill; 
light pen interface; $750 to $1090, depending 6n 
options. 


* a processor card with 3.6 MHz 6502, 64K on-board 
high-speed RAM, transparent execution of all Apple II 
software, software-controlled speed for timed I/O 
operations; $745. 


If you are interested: contact Number Nine at (203) 233-8134, 
or P.O.Box 1802, Hartford, CT 06144. 


A Legible Phone Number for Computer Micro Works 


Their ad last month was a little fuzzy around the area where 
the phone number was. The correct number is (305) 777-0268. 
George Beasley or his wife will take your order. This number 
is in Florida, where George is stationed with the Air Force. 


I ordered one of their "Promette's". It is different than I 
thought, and better. Most such adapters will not work when a 
language card is in slot 0, because EPROM's are missing one of 
the enable lines the Apple uses. But the Promette has an 
active device inside which adds the extra enable line, so it 
works like you want it to. Another nice difference is that 
George's price is about 1/4 the normal price for these items. 


Apple Assembly Line is published monthly by S-C SOFTWARE CORPORATION, P.O. Box 
280300, Dallas, Texas 75228. Phone (214) 324-2050. Subscription rate is $15 
per year in the USA, sent Bulk Mail; add $3 for First Class postage in USA, 
Canada, and Mexico; add $13 postage for other countries. Back issues are 
available for $1.50 each (other countries add $1 per back issue for postage). 


All material herein is copyrighted by S-C SOFTWARE CORPORATION, all rights 
reserved. (Apple is a registered trademark of Apple Computer, Inc.) 
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